home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 08 (1983-04)(Softdisk)(Disk 2 of 2 Side A).zip / Softdisk Magazette Volume 2, No. 08 (1983-04)(Softdisk)(Disk 2 of 2 Side A).do / PAL.80229.SALYER.MAR.83.A.bas < prev    next >
BASIC Source File  |  1996-12-24  |  4KB  |  70 lines
  1. 1  GOTO 100
  2. 2  REM  UPPER CASE CONVERT SUBROUTINE
  3. 3  IF   NOT UC  THEN  SPEED= 150: PRINT A$: SPEED= 255: RETURN 
  4. 4  FOR I = 1 TO  LEN(A$):XC =  ASC( MID$ (A$,I,1))
  5. 5 XC = XC -32 *(XC >96  AND XC <123)
  6. 6  PRINT  CHR$(XC);: NEXT I
  7. 7  PRINT : RETURN 
  8. 100  TEXT : HOME : PRINT "DO YOU HAVE A LOWER CASE APPLE? ";: INPUT "";X$
  9. 110  IF  LEFT$(X$,1) = "N"  THEN UC = 1
  10. 115  HOME : HTAB 5
  11. 120 A$ = "Hello all you Soft People !!": GOSUB 2: PRINT : PRINT : PRINT 
  12. 130 A$ = "I've got a question for you. I have a": PRINT : GOSUB 2
  13. 140 A$ = "software package called 'SMARType'.": PRINT : GOSUB 2
  14. 150 A$ = "I mentioned it in the documentation for": PRINT : GOSUB 2
  15. 160 A$ = "the TEXT.EDITOR program that I sent in": PRINT : GOSUB 2
  16. 170 A$ = "in February. I've had several inquiries": PRINT : GOSUB 2
  17. 180 A$ = "about it, but the only information I": PRINT : GOSUB 2
  18. 190 A$ = "have about it is the author and the": PRINT : GOSUB 2
  19. 200 A$ = "company that produced it.": PRINT : GOSUB 2
  20. 210  GOSUB 1060
  21. 220  HOME : VTAB 4:A$ = "The author is Brad Frohock, and the": GOSUB 2
  22. 230 A$ = "company is Softsmith, Inc. I haven't": PRINT : GOSUB 2
  23. 240 A$ = "seen anything from either the author or": PRINT : GOSUB 2
  24. 250 A$ = "the company. Does anyone out there in": PRINT : GOSUB 2
  25. 260 A$ = "Softdisk land know anything about them?": PRINT : GOSUB 2
  26. 270 A$ = "The package is very good, it allows": PRINT : GOSUB 2
  27. 280 A$ = "different type fonts to be used on the": PRINT : GOSUB 2
  28. 290 A$ = "Silentype printer, including one that": PRINT : GOSUB 2
  29. 300 A$ = "is 96 char. per line, and very readable.": PRINT : GOSUB 2
  30. 310  GOSUB 1060
  31. 320  HOME : VTAB 4
  32. 330 A$ = "If anyone has heard of this company and": PRINT : GOSUB 2
  33. 340 A$ = "knows how to contact them, either write": PRINT : GOSUB 2
  34. 350 A$ = "a SOFT.PAL program, or write me direct.": PRINT : GOSUB 2
  35. 360 A$ = "I think the program is useful and any-": PRINT : GOSUB 2
  36. 370 A$ = "one who has a Silentype should have it.": PRINT : GOSUB 2
  37. 380 A$ = "I got mine at a Computerland Half-price": PRINT : GOSUB 2
  38. 390 A$ = "Sale. So it may not be available any-": PRINT : GOSUB 2
  39. 400 A$ = "more. If it isn't, does anyone know of": PRINT : GOSUB 2
  40. 410 A$ = "another package that does the same.": PRINT : GOSUB 2
  41. 420  GOSUB 1060
  42. 430  HOME : VTAB 4
  43. 440 A$ = "Other features of the package are:": GOSUB 2
  44. 450 A$ = "    1) true descenders on lower case.": PRINT : GOSUB 2
  45. 460 A$ = "    2) 60,80,96,120 char/line fonts.": GOSUB 2
  46. 470 A$ = "    3) compatible with HIRES text gen-": GOSUB 2
  47. 480 A$ = "       erators like DOS TOOL KIT's.": GOSUB 2
  48. 490 A$ = "Your Soft Pals will thank you for any": PRINT : GOSUB 2
  49. 500 A$ = "information you find out. If I get any": PRINT : GOSUB 2
  50. 510 A$ = "info, I'll pass it on.": PRINT : GOSUB 2
  51. 520  GOSUB 1060
  52. 530  HOME : VTAB 4
  53. 540 A$ = "My address is:": GOSUB 2
  54. 550 A$ = "    Dale Salyer": PRINT : GOSUB 2
  55. 560 A$ = "    101 E. 88th Ave, Apt P-116": PRINT : GOSUB 2
  56. 570 A$ = "    Thornton, CO. 80229": PRINT : GOSUB 2
  57. 580  VTAB 23: PRINT "PRESS ANY KEY FOR MENU";
  58. 590  GET R$: PRINT R$
  59. 600  PRINT  CHR$(4);"RUN PAL.MENU"
  60. 1030  END 
  61. 1040  FOR X = 1 TO 500: NEXT : RETURN 
  62. 1045 :
  63. 1060 A$ = "PRESS ANY KEY TO CONTINUE"
  64. 1065 S$ = "": FOR X = 1 TO 20 - LEN(A$)/2:S$ = S$ +" ": NEXT 
  65. 1070 A$ = S$ +A$ +S$: IF  LEN(A$)/2 < > INT( LEN(A$)/2)  THEN A$ = A$ +" "
  66. 1075  FOR X = 1 TO 20:PR$ =  LEFT$(A$,X) + RIGHT$(A$,X): VTAB 23: HTAB 21 -X: PRINT PR$;: NEXT X: GOSUB 1040
  67. 1080 Z =  PEEK( -16384): IF Z >127  THEN  POKE  -16368,0: RETURN 
  68. 1090  POKE  -16368,0: VTAB 23
  69. 1100  FOR W = 0 TO 20: VTAB 23: HTAB W +1: PRINT " ";: HTAB 40 -W: PRINT " ";: NEXT W
  70. 1110  GOTO 1060